home *** CD-ROM | disk | FTP | other *** search
/ Win Tutor 95 / Win Tutor 95.iso / setup16 / run / runtime.qh < prev    next >
Encoding:
Text File  |  1995-06-08  |  3.5 KB  |  110 lines
  1. func "setup" ;
  2. frame "" ;
  3. statbut "st1" 1 "lpause" 6 "Pause the lesson" "pause.bmp" "none" ;
  4. statbut "st2" 2 "pf_backup" 6 "Go back a bit" "backup.bmp" "none" ;
  5. statbut "st3" 3 "pf_index" 6 "Lesson Menu" "menu.bmp" "none" ;
  6. statbut "st4" 4 "dohelp" 6 "Get help" "help.bmp" "none" ;
  7. statbut "st5" 5 "doexit" 6 "Return to Course Menu" "Exit.bmp" "none" ;
  8. statbut "st6" 6 "pf_volume" 6 "Adjust audio volume" "vol.bmp" "none" ;
  9. status "" 2 ;
  10. return ;
  11. func "lstub" ;
  12. frame "" ;
  13. pause ;
  14. trect "stub1" 350 199 249 151 "This feature is not implemented./n//n/Click to continue..." $_trecttextcolor $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent $_trectffacename $_trectfpoint $_trectfweight $_trectfitalic $_trectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $_trectdkcolor $_trectborder $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  15. any 9 ;
  16. killk "stub1" ;
  17. resume ;
  18. return ;
  19. func "lpause" ;
  20. frame "" ;
  21. if $_inexit == 0 ;
  22. if $_framedisplay == 1 ;
  23. killk "pstr" ;
  24. text "pstr" 550 436 100 30 "c" . $_course . "l" . $_lesson . ":" . $_strip . ":" . $_framenum $gray $_textbgcolor $_textmode $_textlspace $_textffacename 10 $_textfweight $_textfitalic $_textfunderline $_textfstrikeout $_textcenter $_textshadow ;
  25. endif ;
  26. if $_audiostat eq "on" ;
  27. pause ;
  28. killbut "st1" ;
  29. statbut "st1" 1 "lresume" 6 "Resume the lesson" "resume.bmp" "none" ;
  30. gcfg "_paused" 1 ;
  31. endif ;
  32. endif ;
  33. return ;
  34. func "lresume" ;
  35. frame "" ;
  36. if $_inexit == 0 ;
  37. resume ;
  38. killk "pstr" ;
  39. killbut "st1" ;
  40. statbut "st1" 1 "lpause" 6 "Pause the lesson" "pause.bmp" "none" ;
  41. gcfg "_paused" 0 ;
  42. endif ;
  43. return ;
  44. func "stripinit" ;
  45. frame "" ;
  46. status "" 0 ;
  47. if $_paused == 1 ;
  48. killbut "st1" ;
  49. statbut "st1" 1 "lpause" 6 "Pause the lesson" "pause.bmp" "none" ;
  50. gcfg "_paused" 0 ;
  51. endif ;
  52. if $_isstatus == 0 ;
  53. call "setup" "" "" "" "" "" "" "" "" "" ;
  54. gcfg "_isstatus" 1 ;
  55. endif ;
  56. return ;
  57. func "doexit" ;
  58. frame "" ;
  59. if $_inexit == 0 ;
  60. call "lpause" "" "" "" "" "" "" "" "" "" ;
  61. gcfg "_inexit" 1 ;
  62. trect "exb1" 224 205 192 71 "Are you sure you want to exit?" 0 $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent "MS Sans Serif" 10 400 0 0 0 $_trectcolor $_trectltcolor $_trectdkcolor 5 $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  63. button "ex1" 250 244 50 20 "yes.bmp" "none" "doexit1" 1 "" ;
  64. button "ex2" 340 244 50 20 "no.bmp" "none" "exitret" 1 "" ;
  65. any $leftbutton ;
  66. label "exitret" ;
  67. killk "exb1" ;
  68. killbut "ex1,ex2" ;
  69. redraw ;
  70. dnow ;
  71. gcfg "_inexit" 0 ;
  72. call "lresume" "" "" "" "" "" "" "" "" "" ;
  73. endif ;
  74. return ;
  75. strip "doexit1" ;
  76. frame "" ;
  77. killk "exb1" ;
  78. killbut "ex1,ex2" ;
  79. gcfg "_inexit" 0 ;
  80. jump "lexit" ;
  81. end ;
  82. func "dohelp" ;
  83. frame "" ;
  84. call "lpause" "" "" "" "" "" "" "" "" "" ;
  85. winhelp "wintutor.hlp" 1 7 ;
  86. return ;
  87. strip "lexit" ;
  88. frame "" ;
  89. gcfg "_background" $darkgray ;
  90. gcfg "_novideo" 1 ;
  91. vidclos ;
  92. status "" 1 ;
  93. imgclos ;
  94. clr ;
  95. redraw ;
  96. trect "key1" 220 205 200 70 "Returning to the Course Menu. /n/Please wait..." 0 $_trectlspace $_trectlmargin $_trectrmargin $_trecttmargin $_trectbmargin $_trectindent "Ms Sans Serif" 10 400 $_trectfitalic $_trectfunderline $_trectfstrikeout $_trectcolor $_trectltcolor $_trectdkcolor 5 $_trectlnthick $_trectcenter $_trectshadow $_trecteffect ;
  97. dnow ;
  98. if $_course == 1 ;
  99. jump "onelesson" ;
  100. endif ;
  101. if $_course == 5 ;
  102. jump "onelesson" ;
  103. endif ;
  104. chain "front.qc" "course" . $_course 0 ;
  105. jump "done1" ;
  106. label "onelesson" ;
  107. chain "front.qc" "curric" 0 ;
  108. label "done1" ;
  109. end ;
  110.